home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / stack.src < prev    next >
Text File  |  1990-10-09  |  335b  |  15 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ by Jake Schwartz
  3. \<<
  4. "6:                   " @ that's 19 spaces.
  5.   IF DEPTH 7 \>=
  6.   THEN 7 PICK \->STR
  7.   ELSE ""
  8.   END 23 OVER SIZE - 3 MAX SWAP REPL 1 DISP
  9. "5:                   " @ 19 spaces.
  10.   IF DEPTH 6 \>=
  11.   THEN 6 PICK \->STR
  12.   ELSE ""
  13.   END 23 OVER SIZE - 3 MAX SWAP REPL 2 DISP 1 FREEZE
  14. \>>
  15.